home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / prog / atari / m2 / cat3src / cat / editglob.d < prev    next >
Text File  |  1997-10-26  |  3KB  |  101 lines
  1. DEFINITION MODULE EditGlobals;
  2.  
  3. FROM SYSTEM     IMPORT LOC;
  4.  
  5. FROM GrafBase   IMPORT Rectangle, Point;
  6.  
  7. IMPORT MagicTypes;
  8.  
  9. FROM EditTypes  IMPORT EDITPTR, aLineDesc;
  10.  
  11.  
  12.  
  13. (* Window-Funktionen fr Darstellung auf Bildschirm *)
  14.  
  15. (* Setzt neues virtuelles Fenster *)
  16. PROCEDURE SetDocument (ed : EDITPTR);
  17.  
  18.         (* GrafGrowbox und GrafShrinkbox neu, da das AES bei kleinen Boxgr”žen anscheinend Mll macht *)
  19.  
  20. PROCEDURE GrowAndShrink (ed : EDITPTR; from : Rectangle);
  21.  
  22. PROCEDURE isQuote (REF str : ARRAY OF CHAR) : BOOLEAN;
  23. (* Stellt fest, ob eine Textzeile ein Quote ist *)
  24.  
  25. PROCEDURE GetQuote (REF str : ARRAY OF CHAR; VAR quote: ARRAY OF CHAR);
  26. (* Holt den Quoteteil aus der Zeile *)
  27.  
  28. PROCEDURE OutputLine (ed : EDITPTR; x, y : INTEGER; REF line : ARRAY OF CHAR; 
  29.                       len : INTEGER; VAR width: INTEGER);
  30. (* Gibt die Zeile line an der Position x,y im Editor ed aus 
  31.  * und gibt die Breite der Zeile zurck
  32.  *)
  33.  
  34. PROCEDURE AllocNew (VAR line : aLineDesc; newLen : INTEGER);
  35. (* Alloziert ggf. eine neue Zeile, damit der Text die neue L„nge haben
  36.  * kann
  37.  *)
  38.  
  39.         (* VDI Text Funktionen    *)
  40.         
  41. PROCEDURE Text (ed : EDITPTR; x, y: INTEGER; REF string: ARRAY OF CHAR);
  42.  
  43. PROCEDURE InqTextextend (ed : EDITPTR; REF string: ARRAY OF CHAR;
  44.                              VAR extent: ARRAY OF LOC; parseEffects: BOOLEAN);
  45.  
  46. PROCEDURE GetTextWidth (ed : EDITPTR; REF string: ARRAY OF CHAR; idx: INTEGER;
  47.                              VAR extent: ARRAY OF LOC);
  48. (* Diese Porzedur parst den Text immer. Pos gibt die Position an, bis zu der der 
  49.  * String maximal zusammengesetzt wird! 
  50.  *)
  51.  
  52. PROCEDURE FixCursorPos (VAR ed : EDITPTR);
  53. (* Pažt auf, das der Cursor nie hinter einem CR/LF steht
  54.  *)
  55.  
  56. PROCEDURE RowToIndex (REF str : ARRAY OF CHAR; row, tabSize : INTEGER) : INTEGER;
  57.  
  58.         (* Cursor-Zeichenfunktionen *)
  59.         
  60. PROCEDURE ClipWork (ed : EDITPTR);
  61.  
  62. PROCEDURE drawCursor (VAR ed : EDITPTR; grow : BOOLEAN);
  63.  
  64. PROCEDURE MouseArrow;
  65. PROCEDURE MouseCursor;
  66. PROCEDURE MouseBusy;
  67. PROCEDURE MouseFinger;
  68. PROCEDURE MouseHand;
  69. PROCEDURE MouseThincross;
  70. PROCEDURE MouseThickcross;
  71. PROCEDURE MouseOutline;
  72. PROCEDURE MouseUser;
  73. (* Diese Routinen schalten die Maus mit dem jeweilige Bild EIN *)
  74.  
  75. PROCEDURE MouseIsOn () : BOOLEAN;
  76. (* Erfragt, ob die Maus an ist oder nicht *)
  77.  
  78.  
  79. PROCEDURE UserMouse (VAR form: MagicTypes.MFORM);
  80. (* Setzt eine User-Definierte Maus. Sichtbar erst mit MouseUser! *)
  81.  
  82. PROCEDURE SaveMouse ();
  83.  
  84. PROCEDURE RestoreMouse();
  85.  
  86. PROCEDURE MouseIsOn () : BOOLEAN;
  87.  
  88. PROCEDURE HideMouse ();
  89.  
  90. PROCEDURE ShowMouse (force : BOOLEAN);
  91.  
  92. PROCEDURE CursorIsOn (ed : EDITPTR) : BOOLEAN;
  93.  
  94. PROCEDURE HideCursor (VAR ed : EDITPTR);
  95.  
  96. PROCEDURE ShowCursor (VAR ed : EDITPTR);
  97.  
  98. PROCEDURE ForceCursor (VAR ed : EDITPTR);
  99.  
  100. END EditGlobals.
  101.